Notes/Domino 6 and 7 Forum : RE: Equivalent of @MailSend on the Web

PLEASE IGNORE MY PREVIOUS POST. Here is my actual problem.

I am web enabling an existing Lotus notes form. My Submit Action for the web has @Command([FileSave]).

I am calling 2 agents from the WebQuerySave Event. One for Validating the form and one for Submiting the form.The agents give me a type mismatch error. Please Help!!!

The code is as follows...
Validate Form
Sub Initialize
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc = session.DocumentContext

Print "<SCRIPT LANGUAGE=JavaScript>"
Print "alert('Entering agent');"
Print "</SCRIPT>"

If(doc.GetItemValue("AMgr_1") = "") Then
Print "<SCRIPT LANGUAGE=JavaScript>"
Print "alert(\"You must enter the Requester's name!\");"
Print "document.forms[0].AMgr_1.focus();"
Print "</SCRIPT>"
doc.ErrorFlag = 1
continue = False
Exit Sub
End If
If ( doc.GetItemValue( "AMPhone" ) = "" ) Then
Print "<SCRIPT LANGUAGE=JavaScript>"
Print "alert('You must enter a Phone Number for the Requester!');"
Print "document.forms[0].AMPhone.focus();"
Print "</SCRIPT>"
doc.ErrorFlag = 1
continue = False
Exit Sub
End If
End Sub

Agent for Submitting Form
Sub Initialize
Dim session As New NotesSession
Dim maildb As New NotesDatabase( "", "" )
Dim doc As NotesDocument
Set doc = session.DocumentContext

Call maildb.Open( "Domino3/Interactive/West", "mail\internet.nsf" )
Set maildoc = New NotesDocument( maildb )
maildoc.Form = "Memo"
'maildoc.Subject = "Test"
maildoc.Subject = doc.GetItemValue("DocNum") +" has been submitted by " + doc.GetItemValue("AMgr_1")+ "....."
maildoc.Body = " This is an automated reminder for sdr."
maildoc.SendTo = "def"
maildoc.CopyTo = "abc"
Call maildoc.Send(False,maildoc.SendTo)

End Sub

Notes/Domino 6 and 7 Forum

Document Options

Search this forum

Forum views and search

Member Tools

RSS Feeds